Private Sub CommandButton1_Click()

    With Label1
        .Caption = TextBox1.Value
        .TextAlign = fmTextAlignCenter
        .ForeColor = RGB(0, 0, 255)
        .Font.Underline = True
        .MousePointer = fmMousePointerCustom
        .MouseIcon = LoadPicture(ThisWorkbook.Path & "\Hand.cur")
    End With

End Sub